64'er Special 72/64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_B.d64/konverter 2

Commodore BASIC | 1990-01-01 | 912 b | 17 lines

5 dima(600):print"[147]konverter  printmaster --> topprint":print"    fuer kleingrafiken (bilder)":print"nikolaus heusler, 10.91  (c) 64'er":input"name des printmaster-bildes ";a$:print"- bitte warten -":open15,8,15,"i0":open2,8,2,a$+".gra,p,r":input#15,f1,f1$,f2,f3
70 iff1thenprint"diskettenfehler: "f1$:stop
72 open3,8,3,a$+".[194]i,p,w":input#15,f1,f1$,f2,f3:iff1thenprint"diskettenfehler: "f1$:stop
78 print#3,chr$(160)chr$(177);:get#2,a$,b$:ifa$<>"p"orb$<>chr$(119)thenprint"filefehler":stop
90 get#2,a$:ifa$<>"x"thenprint"filefehler":stop
91 get#2,a$:ifa$thenprint"filefehler":stop
92 get#2,a$:ifa$<>"4"thenprint"filefehler":stop
93 get#2,a$:ifa$thenprint"filefehler":stop
94 get#2,a$:ifa$<>"[180]"thenprint"filefehler":stop
95 get#2,a$:ifa$<>chr$(139)thenprint"filefehler":stop
100 fori=1to11:get#2,a$:a(r)=asc(a$+chr$(0)):s=s+a(r):r=r+1:next:ifstthen112
110 get#2,a$:ifa$<>chr$(139)thenprint"filefehler":stop
112 z=z+1:ifs=0thenr=r-11:goto100
120 iff=0thenf=1:print"(bild beginnt bei zeile"z"[157])
130 [139]z[179]52[167]100
140 [129]i[178]0[164]5:[129]j[178]0[164]10:[129]k[178]0[164]7:[152]3,[199](a(k[172]11[170]i[172]88[170]j));:[130]k,j:[129]l[178]0[164]7:[152]3,[199](0);:[130]l,i:[160]3:[160]2:[160]15:[153]"okay.":[128]